home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 2.iso / STUTTGART / UNIXTOOL / GNU / TILEFORTH / TILE / TILE~ / !Tile / test / calc < prev    next >
Text File  |  1992-04-19  |  821b  |  57 lines
  1. .( Loading Infix Calculator test...) cr
  2.  
  3. #include <Tile$Lib>.parser
  4. #include <Tile$Lib>.calc
  5.  
  6. parser
  7.  
  8. \ Some test code for the simple calculator
  9.  
  10. calc parse" 10+(12*11) "
  11.  
  12. calc parse" -(10*-10)-(8*20) "
  13. calc parse" 12*900/(10-9)*100 "
  14. calc parse" (((20*(10+10)))) "
  15. calc parse" 100+100/19"
  16. calc parse" /10 "
  17.  
  18. calc interact
  19.  
  20. 10+(12*11)
  21. -(10*-10)-(8*20)
  22. 12*900/(10-9)*100
  23. (((20*(10+10)))) 
  24. 100+100/19
  25. /10
  26.  
  27. forth
  28.  
  29.  
  30. \ High Level Extended Backus-Naur Form definition
  31.  
  32. #include <tile$test>.calc_bnf
  33.  
  34. parser
  35.  
  36. \ Some test code for the simple calculator
  37.  
  38. calc parse" 10+(12*11) "
  39. calc parse" -(10*-10)-(8*20) "
  40. calc parse" 12*900/(10-9)*100 "
  41. calc parse" (((20*(10+10)))) "
  42. calc parse" 100+100/19"
  43. calc parse" /10 "
  44.  
  45. calc interact
  46.  
  47. 10+(12*11)
  48. -(10*-10)-(8*20)
  49. 12*900/(10-9)*100
  50. (((20*(10+10)))) 
  51. 100+100/19
  52. /10
  53.  
  54. forth
  55.  
  56. forth only
  57.